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**F ILE**1D**BASPOWRD 
BBBBBBBB AARAAA SSSSSSSS_ PPPPPPPP 000000 wis Ww RRRRRRRR DDDDDDDD 
BBBBBBBB AAAS AA SSSSSSSS PPPPPPPP 000000 ww WwW RRRRRRRR DDDDDDDD 
BB BB AA AA SS PP PP 00 00 WW Ww RR RR ODD DD 
BB BB AA AA SS PP PP 00 00 WW Ww RR RR DD DD 
BB BB AA SS PP PP 00 00 WwW WW RR RR DD DD 
BB BB AA AA SS PP PP 00 00 WW Ww RR RR DD DD 
BBBBBBBB AA Ab SSSSSS PPPPPPPP 00 00 WW WW RRRRRRRR DD DD 
BBB B as SSSSSS PPPPPPPP 00 00 WW Ww RRRRRRRR DD DD 
BB BB AAAAAAAAAA SS PP 00 00 WW WW WwW RR RR DD DD 
BB BB SS PP 00 00 WW WW Ww RR RR DD DD 
BB A AA SS PP 00 00 WWwWh WwWWw RR RR DD DD cece 
BB Aa SS PP 00 00 WWW WWwWWw RR RR DD DD cece 
BBBBBBBB AA AA SSSSSSSS PP 000000 WW Ww RR RR DDDDDDDD eoee 
BBBBBBBE AA AA SSSSSSSS PP 000000 ta Ww RR RR DDDDDDDD eeee 
LL II111 SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL Il SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL Il SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
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| BASSPOWRD ; BASIC float ** double routine 16-SEP-1984 :00:39 VAX/VMS Macro v04-00 Page 
7-001 ae et} 9:90:35 YBASRTL. SREIBASPOURD-MAR: 1 . 
-TITLE BASSPOWRD 3; BASIC float ** double routine 
IDENT /1=001/ 3; File: BASPOWRD.MAR Edit:PLL1001 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS in Nees iY un uote en LICENSE AND MAY BE USED AND COPIED 


® * 
® ® 
® ® 
® 
® ® 
® ® 
® ® 
Ss N Y ® 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
* TRANSFERRED. * 
® ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
® ® 
@ * 
te ® 
® ® 
® ® 
*® ® 
® * 
:* ® 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


COOoOOCOCOCCOOOCOOCOooOOoOoOoOooooO 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR + * senda OF ITS 


464 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 

464 PRE RARARAALALALARARAALALASLERLEEERERE RRR ERR RR RE RE RE REE RAR ARR RRR RRR RRR AAAS SD OS 
0000 

464 “FACILITY: Basic Support Library 

0000 ABSTRACT: 

38 a Sire Yen a1 nmin 

0000 

0000 ENVIRONMENT: User Mode, AST Reentrant 


AUTHOR: P. Levesque , CREATION DATE: 5-O0ct-81 
MODIFIED BY: 
1-001 = Original 


PWN OO ODNAU EWN $9 ODNAU EWN 0 OD NOAUE WOW ONOU SW 
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BASSPOWRD 
1-001 


B 15 
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EP-1984 10:34 L.SR (2) 


ro 
737 (CBASRT CJBASPOWRD.MAR; 1 


uw 
ze 
ro 
—_ 
on 
zo 
“ow 
oa 
i 
nm 


~SBTTL DECLARATIONS 
INCLUDE FILES: 


EXTERNAL DECLARATIONS: 
-DSABL GBL 


Prevent undeclared 
symbols from being 
automatically global. 


Bete te 


N OTSS$POWRD 
N OTSS$POW 


gare “y OTS$ float ** double exponentiation 
TEXTRN BAS$K_DIVBY_ZER 

~EXTR 

EXTR 


OTS$ float ** int exponentation 
Divide by Zero 
Il.egr. argument in LOG 


N BAS$K-ILLARGLOG : 
Er: ** reporting routine 


N BASSS$STOP 


: MACROS: 


; EQUATED SYMBOLS: 


OWN STORAGE: 


SOSOSCSCOSCSOSOSOSOSOSOSOSOSOSOSOSOOSOSOSOOOOSOOSOOSOSoOO 
SOOO OCOOSOSOSOSOSOSOSOSOSCOOSOSOOOSOOSOSOOOOSOSOOSOO 
fe eee ee ae ww lean lolol oleae lololele lel ela la lolo lol olololol ole = mm) 


PSECT DECLARATIONS: 


.PSECT _BASSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT. LONG 


0000 


ooo 


SOOCOCOOOOOOSOSOSOSOOSOOOSOOSOOOOSOOOOOOOOOOOOO 
ooo 


C008 NINN NSN NSD DD AAA AA AA IIT 
OOO NAUES WN O ODNA UES WR O DOONAN WR OO OONO 


So 
o 


oe 


— 


————__—__——- 


FUNCTION VALUE: 
COMPLETION CODES: 


double result of exponentiation 
SIDE EFFECTS: 


Will signal Divide By Zero or Illegal scqunent in LOG if its 


arguments are bad, and OTSS$POWRD and OTSSPOWRJ may also signal. 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge 


BASSPOWRD: : -MASK OTSSPOWRD Entry point 

Since this routine uses no 
registers and usually transfers 
control to OTSSPOWRD, we copy 
its register save mask and then 
JMP past its save mask and only 
; Save the registers once 

; Test base relationship to zero 
; If base leq 0, do case analysis 


C 1 
| BASSPOWRD ; BASIC float ** double routine 16-SEP-1984 00:00:39 VAX/VMS Macro v04-00 Page 
1-001 BASSPOWRD = BASIC float ** double aay yi 98:90:39 BASRTL.SRCJBASPOWRD.MAR; 1 . 3) 
p08 ? ra -SBTTL BASSPOWRD - BASIC float ** double 
Bee ; ; FUNCTIONAL DESCRIPTION: 
000 (3 This routine takes BASE ** EXP, using the following table 
B88 8 : for unusual cases: 
$00 90 ; BASE > Call OTSSPOWRD, normal case. 
000 91; BASE = 0, EXP > 0 Return 0.0. 
4 38 3 BASE = 0, EXP = Return 1.0. 
000 93; BASE = 0, EXP < Error: divide by zero 
4 94 ; BASE < 0, EXP even integer Call OTS$SPOWRJ with -BASE 
000 95 ; BASE < 0, EXP odd integer Call OTS$POWRJ with -BASE, negate result 
444 39 3 BASE < 0, EXP not integer Error: illegal argument in LOG. 
0000 98 ; CALLING SEQUENCE: 
0000 99 ; 
4444 89 5 CALL result.wd.v = BASSPOWRD (base.rf.v, exponent.rd.v) 
0000 8g ; INPUT PARAMETERS: 
0000 03 ; 
00000004 0000 04 base = 4 
0000000C 0000 05 exponent = 12 
0000 06 
0000 07 ; IMPLICIT INPUTS: 
0000 08 
0000 09 NONE 
0000 10 
0000 11 OUTPUT PARAMETERS: 
0000 \¢ 
0000 1 NONE 
0000 14 
0000 15 IMPLICIT OUTPUTS: 
0000 16 
0000 17 NONE 
0000 18 
0000 19 
0000 $0 
0000 1 
0000 $8 
0000 
0000 $e 
4 5 
8000 199 
0000 8 
000 9 
3 1 
0 
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| BASSPOWRD ; BAS loat_** double routine Ua det B49 08:90:39 AX/VMS Macro Vv04-00 Page 4 
1-001 BASSPOWRD - BASIC float ** double 6-SEP-1984 10:34:37 (CBASRTL.SRCJBASPOWRD.MAR; 1 (3) 
00000002'GF 17 JMP G*OTSSPOWRD+2 3 preneter seneres to he orse 
3 rou 0 do exponentiation 


5% 
; Come here if the base is less than or equal to zero. We must filter 
3; several special cases, as described above. 


is: BEQL © 4 ; Branch if base = 0 
EMODD gprenens ah. #0, #1, RO, RO 
EQ $ 3; Branch if exponent is not integer 


50 6500 «(08 «=—00s«OL” 


—Pr 
>om 


3% 

; The base is less than zero and the exponent is an integer. 

; BASIC defines vere as oe the go «| as if an integer was 
3; in the expression (making a double variable which happens to 

; contain an integer value equivalent to an integer variable). 


AC 6A CVTDL exponent(AP), RO :; Convert exponent to integer 

50 PUSHL RO 3; Save for even/odd test 

50 OD PUSHL RO 3; Stack as parameter to OTS$POWRJ 

AC 52 MNEGF base(AP), -(SP) : Stack -base also 

03 FB CALLS #3, G*OTS$POWRJ : Call integer power routines 

8E 9 BLBC (SP)+,2$ 3; Branch if exponent even 

50 2 MNEGD- RO, r6 3; Exponent odd pogete the result 
04 2$: RET 3 and return with it. 


s¢ 
; Come here if the base is less than zero but the exponent is not 
3 an integer. BASIC defines this as an error. 

7E 00°8F 9A 8s: MOVZBL M#BASS$K_ILLARGLOG, -(SP) ; Illegal Argument in LOG 
00000000'GF 01 FB ‘ CALLS #1, G*BASS$$STOP ; Never return. 
: Come here if the base is equal to zero. The value we return depends 
3 upon the sign of the exponent. 


~J 

o 
ODOOOCSCOCOSOOCOOOOCOOOOOOOOOOCOOOOOOOOSOOOOOOO OF: 
BGDOOCOOCOSOCOSSCSCOCSCCSOOOOSOOSOOOOOOCOCOOOSOOSOOSoOO £O 


FS PNWANWAAWI NANNY 2 2 OO OO OS MP OOOOOCOCOCO 
NMOIVIIIIOSNNNNN- MD FOMOWWOwDwowmwowoe"ovoVTIITI97T0N O-- 


MEW @§ OOO NAMES WIR @ 9 OO NAUE WIN O OD NAUN EWN | 0 ODNAUS INN O OONAUES WN Oo 
> 


ati wat miad i adad dad adadtadmiamiadtadatad edad iad dad adad dada ad ad ad ad ad ad ad ad ad ad ad aD aa aad ad dada dad 
WOOO DO WO000009 09 090909 09 0909 NII NN NSD DS DDD DDS TTT 


END 


OC A 73 is: TSTD exponent (AP) ; Test the exponent against zero 
09 #=«#19 BLSS 6$ :; Branch if exponent [ss 
13 Opes Pe BEQL 5$ ; Branch if exponent is 0 
0044 : Come here if the base is zero and the exponent is greater than zero. 
Bore ; BASIC defines this as 0.0. 
50 7C¢ boca CLRD RO ; RO, R1 = 0.0 
04 Bne$ r RET ; Return to caller 
Boe! : Come here if the base is zero and the exponent is zero. BASIC defines 
047 3; this as 1.0. 
Bnee = 
50 08 70 0047 S$: MOVD #1, RO ; RO, R1 = 1.0 
04 ae RET ; Return to caller. 
3* 
4B 3; Come here if the base is zero and the exponent is less than zero. 
Ree 3 BASIC defines this as an error. 
7E 00°8F 9A 004 és: MOVZBL M#BASSK_DIVBY_ZER, -(SP) ; Divide by zero 
00000000'GF 01 FB Bn CALLS #1, G*BASS$STOP ; Report error, never return. 
005 


50 «(OC 
7E 04 
00000000 ' GF 
03 
50 


E15 
| BASSPOWRD ; BASIC float ** double routine i a dat Bs 9 00:00: 39 AX/VMS Macro Vv04-00 Page 3 
Symbol table 6-SEP=-1984 10:34:37 (CBASRTL.SRCIBASPOWRD.MAR; 1 (3) 
BASSSSTOP reeerene x o° 

BASSK_DIVBY ZER eeeeeeee x 

BASSK_ILLARGLOG teeeeere 00 

BASSPOWRD 0000000 RG 01 

BASE = 00000004 

EXPONENT = 0000000C 

OTS$SPOWRD tereeeee =X 00 

OTS$SPOWRJ eereeeee =X 00 

te wen ew re eam wmoeoe . 
H Psect synopsis ! 

PSECT name Allocation PSECT No. Attributes 

« AS gs 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_BASSCODE 00000056 ¢ So.2 Ct & Ver PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC LONG 

Gadteceucnssanesecneesuwss 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 31 00:00:00.08 00:00:00.56 

Command processing 116 00:00:00.45 B82 89 Be - 1g 

ass 1 71 00:00:00.50 00:00:01.2 

Symbol table sort 0 00:00:00.00 00:00:00.00 

Pass 2 47 00:00:00.38 00:00:00.85 

Symbol table output 2 00:00:00.02 00:00:00.02 

Psect synopsis output 3 00:00:00.02 00:00:00.02 

Cross-reference output 00:00:00.00 00:00:00.00 

Assembler run totals 272 00:00:01.46 00:00:04.82 


The working set Limit was 900 pages. 

2216 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 8 non-local and 6 local symbols. 
195 source Lines were read in Pass 1, produc ing 8 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


+ + 
! Macro Library statistics ! 
tec ereoe we See eens e ewer ereasneane es + 


Macro Library name Macros defined 
“S255SDUAZB:(SYSLIBISTARLET.MLBs20 0 SS o- 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESS1ON/DI SABLE = (GLOBAL , TRACEBACK) /L1S=L1S$:BASPOWRD/0BJ=0BJ$ : BASPOWRD MSRC$:BASPOWRD/UPDATE=(ENHS: BASPOWRD ) 


a 
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